#! /usr/bin/perl

use strict;
use warnings;
use Encode;

my %last_name = (
		"fred" => "flintstone",
		"dino" => undef,
		"barney" => "rubble",
		"betty" => "rubble",
);

if(exists $last_name{"dino"}) {
		print "There is a dino in %last_name\n";
}

my $a = "af";
if(defined $a) {
		print "there's a \$a\n";
}

delete $last_name{"dino"};

if(! exists $last_name{"dino"}) {
		print "there isn't dino in %last_name\n";
}


